home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / r / r.bat < prev    next >
DOS Batch File  |  1993-01-28  |  5KB  |  353 lines
  1. @echo off
  2. cls
  3.  
  4. :R1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO R2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :R2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO R1
  39. IF ERRORLEVEL 22 GOTO R3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :R3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO R2
  69. IF ERRORLEVEL 22 GOTO R4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :R4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLM23
  97.  
  98. IF ERRORLEVEL 15 GOTO QUIT
  99. IF ERRORLEVEL 14 GOTO R3
  100. IF ERRORLEVEL 13 GOTO 76
  101. IF ERRORLEVEL 12 GOTO 75
  102. IF ERRORLEVEL 11 GOTO 74
  103. IF ERRORLEVEL 10 GOTO 73
  104. IF ERRORLEVEL 9 GOTO 72
  105. IF ERRORLEVEL 8 GOTO 71
  106. IF ERRORLEVEL 7 GOTO 70
  107. IF ERRORLEVEL 6 GOTO 69
  108. IF ERRORLEVEL 5 GOTO 68
  109. IF ERRORLEVEL 4 GOTO 67
  110. IF ERRORLEVEL 3 GOTO 66
  111. IF ERRORLEVEL 2 GOTO 65
  112. IF ERRORLEVEL 1 GOTO 64
  113.  
  114.  
  115. :1
  116. VPIC /A R&EB&D1
  117. GOTO R1
  118. :2
  119. VPIC /A R&EB&D2
  120. GOTO R1
  121. :3
  122. VPIC /A R&EB&D3
  123. GOTO R1
  124. :4
  125. VPIC /A R&EB&D5
  126. GOTO R1
  127. :5
  128. VPIC /A RAMROD
  129. GOTO R1
  130. :6
  131. VPIC /A RAW16
  132. GOTO R1
  133. :7
  134. VPIC /A RAW1L
  135. GOTO R1
  136. :8
  137. VPIC /A RAWVRR2
  138. GOTO R1
  139. :9
  140. VPIC /A RBP102
  141. GOTO R1
  142. :10
  143. VPIC /A RBP103
  144. GOTO R1
  145. :11
  146. VPIC /A RBP104
  147. GOTO R1
  148. :12
  149. VPIC /A RBP105
  150. GOTO R1
  151. :13
  152. VPIC /A RE017
  153. GOTO R1
  154. :14
  155. VPIC /A RE030
  156. GOTO R1
  157. :15
  158. VPIC /A RE031
  159. GOTO R1
  160. :16
  161. VPIC /A RE032
  162. GOTO R1
  163. :17
  164. VPIC /A RE033
  165. GOTO R1
  166. :18
  167. VPIC /A RE056
  168. GOTO R1
  169. :19
  170. VPIC /A RE057
  171. GOTO R1
  172. :20
  173. VPIC /A RE058
  174. GOTO R1
  175. :21
  176. VPIC /A RE062
  177. GOTO R1
  178. :22
  179. VPIC /A RE187
  180. GOTO R2
  181. :23
  182. VPIC /A RE197
  183. GOTO R2
  184. :24
  185. VPIC /A RE353
  186. GOTO R2
  187. :25
  188. VPIC /A RE355
  189. GOTO R2
  190. :26
  191. VPIC /A REAL5
  192. GOTO R2
  193. :27
  194. VPIC /A REARENT3
  195. GOTO R2
  196. :28
  197. VPIC /A REARSKRT
  198. GOTO R2
  199. :29
  200. VPIC /A REDBRA09
  201. GOTO R2
  202. :30
  203. VPIC /A REDBRA1
  204. GOTO R2
  205. :31
  206. VPIC /A REDBRA2
  207. GOTO R2
  208. :32
  209. VPIC /A REDBRA8
  210. GOTO R2
  211. :33
  212. VPIC /A REDPLUS
  213. GOTO R2
  214. :34
  215. VPIC /A REGINA
  216. GOTO R2
  217. :35
  218. VPIC /A REJECT1
  219. GOTO R2
  220. :36
  221. VPIC /A RENEE
  222. GOTO R2
  223. :37
  224. VPIC /A RHINO
  225. GOTO R2
  226. :38
  227. VPIC /A RHONDA3
  228. GOTO R2
  229. :39
  230. VPIC /A RICHTER
  231. GOTO R2
  232. :40
  233. VPIC /A RIDE_EM1
  234. GOTO R2
  235. :41
  236. VPIC /A RIDE_EM2
  237. GOTO R2
  238. :42
  239. VPIC /A RIO1
  240. GOTO R2
  241. :43
  242. VPIC /A RIOCHICK
  243. GOTO R3
  244. :44
  245. VPIC /A RIVIERA
  246. GOTO R3
  247. :45
  248. VPIC /A RN5
  249. GOTO R3
  250. :46
  251. VPIC /A ROBBY03
  252. GOTO R3
  253. :47
  254. VPIC /A ROCK02
  255. GOTO R3
  256. :48
  257. VPIC /A ROCKIN1
  258. GOTO R3
  259. :49
  260. VPIC /A ROCKIN2
  261. GOTO R3
  262. :50
  263. VPIC /A ROCKIN3
  264. GOTO R3
  265. :51
  266. VPIC /A ROCKIN4
  267. GOTO R3
  268. :52
  269. VPIC /A ROCKIN5
  270. GOTO R3
  271. :53
  272. VPIC /A ROCKIN6
  273. GOTO R3
  274. :54
  275. VPIC /A ROCKIN7
  276. GOTO R3
  277. :55
  278. VPIC /A ROLL_1
  279. GOTO R3
  280. :56
  281. VPIC /A ROLL_10
  282. GOTO R3
  283. :57
  284. VPIC /A ROLL_2
  285. GOTO R3
  286. :58
  287. VPIC /A ROLL_3
  288. GOTO R3
  289. :59
  290. VPIC /A ROLL_5
  291. GOTO R3
  292. :60
  293. VPIC /A ROLL_6
  294. GOTO R3
  295. :61
  296. VPIC /A ROLL_7
  297. GOTO R3
  298. :62
  299. VPIC /A RONDA
  300. GOTO R3
  301. :63
  302. VPIC /A ROOMIES1
  303. GOTO R3
  304. :64
  305. VPIC /A ROOMIES2
  306. GOTO R4
  307. :65
  308. VPIC /A ROOMIES3
  309. GOTO R4
  310. :66
  311. VPIC /A ROOMIES4
  312. GOTO R4
  313. :67
  314. VPIC /A ROOMIES5
  315. GOTO R4
  316. :68
  317. VPIC /A ROOMIES6
  318. GOTO R4
  319. :69
  320. VPIC /A ROOMIES7
  321. GOTO R4
  322. :70
  323. VPIC /A ROPES
  324. GOTO R4
  325. :71
  326. VPIC /A ROWENA12
  327. GOTO R4
  328. :72
  329. VPIC /A RP016
  330. GOTO R4
  331. :73
  332. VPIC /A RT16
  333. GOTO R4
  334. :74
  335. VPIC /A RUBBERS
  336. GOTO R4
  337. :75
  338. VPIC /A RUS&EDI
  339. GOTO R4
  340. :76
  341. VPIC /A RYAN_N
  342. GOTO R4
  343.  
  344.  
  345. :SELECTION
  346. CD\SETUP
  347. FSTORM3
  348.  
  349. :QUIT
  350. CD\SETUP
  351. FSTORM3
  352.  
  353.